0 POKE55,255:POKE56,55:POKE53272,21:POKE53248+16,.:POKE53281,.:POKE53280,.
1 POKE53248,.:POKE53249,.
2 IFA>0 THEN 6
3 GOSUB60500
5 A=1:LOAD"CASTLE.FNT",8,1
6 :
7 PRINT"[147]":RESTORE:H=0
10 F=6:Q=RND(TI)*11+1876
11 PRINT"[147][152]"
15 POKE832,128:FORX=833TO833+62:POKEX,.:NEXT
16 POKE 53272,(PEEK(53272)AND240)OR14
20 DATA 139,140,141,142,143,144,171,172
30 DATA 173,174,175,176,203,204,205,206
40 DATA 207,208,235,236,237,238,239,240
50 FORX=1TO160 STEP40
51 FORY=0TO5
52 READM:POKEQ+X+Y,M:POKEQ+X+Y+54272,12:
53 NEXT
54 NEXT
60 POKE53281,0:S=54296:V=53248:POKE2040,13:POKE832,128:POKEV+29,1:POKEV+39,1
62 AO=54272
65 FOREX=1TO8:E=INT(RND(TI)*35)+4:POKE1984+E,184:POKE56256+E,5:NEXT
70 IFF=1THEN61500
80 POKEV+21,0:POKE1985,177:POKE1986,178:POKE1987,179:POKE1988,180:POKE1946,181
81 X=38:Y=230:G=0:F=F-1
82 POKE1985+AO,12:POKE1986+AO,12:POKE1987+AO,12:POKE1988+AO,12:POKE1946+AO,12
90 PRINTF;"[154]SHOTS TO GO.":PRINT" ENTER ELEVATION (1-86 DEG)        [157][157][157][157][157][157][157]:";
91 GOSUB 61000:D=VAL(B$):PRINT"[157]"
95 POKEV+16,.:AD=0:POKE53248,.:POKE53249,.:POKEV+31,.
100 IFD<1ORD>86THEN90
110 R=(null)/(180/D):A=TAN(R):B=3.3*COS(R):POKE1946,182:POKEV+21,1:POKES,15:POKES,0
115 X=X+B:IFX>255 THEN X=ABS(X-256):POKEV+16,1:POKEV,X:AD=255
120 Y=Y-(B*A)+G:G=G+.05:IFY>250THENFORJ=0TO999:NEXT:GOTO70
130 POKEV,X:POKEV+1,Y
140 IF PEEK(V+31)<>1 THEN 115
141 LC=1024+INT((Y-50)/8)*40+INT((X+AD-24)/8)
142 IF PEEK(LC)>144ANDPEEK(LC)<150 THEN 150
143 IF PEEK(LC)=184 THEN CH=185:GOTO 146
144 IF PEEK(LC)=185 THEN CH=32 :GOTO 146
145 POKELC,INT(RND(1)*4)+145:H=H+1:GOTO 150
146 POKELC,186:FORJ=1TO100:NEXT
147 POKELC,187:FORJ=1TO100:NEXT
148 POKELC,CH
149 :
150 POKES,15:POKES,0:POKEV+31,.:GOTO115
60500 REM
60510 IFA=0 THENPRINT"[147]"
60530 PRINT""
60540 PRINT"[158] [223][223][146]  [223]  [223][146][223]  [223][146][223]  [223][146][223]  [223][146][223]   [223][146][223]  [223][146][223]  [223]"
60550 PRINT"  [223][223][146]  [223][223][146][223][223][146][223][223][146][223][223][146][223][223][146][223][223][146][223][223][146]   [223][223][146]  [223][223][146][223][223][146][223][223][146][223][223]"
60560 PRINT"   [223][223][146]  [223][223][146][223][223][146][223][223][146][223][223][146][223][223][146][223][223][146][223]  [223][146] [223][223][146]  [223][223][146][223][223][146][223][223] "
60570 PRINT"    [223][223][146]  [223][223][146][223][223][146][223]  [223][146][223][223][146][223][223][146]  [223][223][146] [223][223][146]  [223]  [223][146][223] [164][223]"
60580 PRINT"     [223]  [223][146][223]  [223][146][223][223][146][223][223][146][223]  [146] [223]  [223][146] [223][223][146]  [223][223][146][223][223][146][223][223][146][223][223]"
60730 PRINT
60770 PRINT"          [154]PROUDLY PRESENTS ...."
60780 PRINT
60790 PRINT"[155]         [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
60800 PRINT"[155]        [176][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][174]"
60810 PRINT"[155]       [176][219][189]                    [173][219][174]"
60820 PRINT"[155]       [221][221]     CASTLE SIEGE[155]     [221][221]"
60830 PRINT"[155]       [221][221]                      [221][221]"
60840 PRINT"[155]       [221][221]          BY          [155][221][221]"
60850 PRINT"[155]       [221][221]                      [221][221]"
60860 PRINT"[155]       [221][221]  BOB & DAVID SNADER  [155][221][221]"
60870 PRINT"[155]       [221][221]                      [221][221]"
60880 PRINT"[155]       [221][221]       (C) 1987       [155][221][221]"
60890 PRINT"[155]       [173][219][174]                    [176][219][189]"
60900 PRINT"        [173][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][189]"
60910 PRINT"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
60950 RETURN
61000 POKE198,.:B$="":PRINT"[164]";:W=1
61005 GETA$:IFA$=""THEN61005
61006 IFA$=CHR$(13)THEN PRINT"[157] ":RETURN
61010 IFA$=CHR$(20)ANDW>1 THEN W=W-1:B$=LEFT$(B$,W-1):PRINT"[157][157]  [157][157][164]";:GOTO 61005
61012 IFA$=CHR$(20) THEN 61005
61013 IF W>2 THEN 61005
61020 IFA$<"0" OR A$>"9" THEN 61005
61025 B$=B$+A$:PRINT"[157]"A$;:POKE212,.:PRINT"[164]";
61030 W=W+1:GOTO 61005
61500 :POKE53272,21:POKE53269,.
61503 PRINT"[147]":IFH>14 THEN PRINT"  THE CASTLE WAS SUCCESSFULLY SIEGED!!
61505 [153]:[153]"          YOU MADE "H"HITS"
61507 [139] H[179]15 [167] [153]"PRINT    BETTER LUCK NEXT TIME WARRIOR !!"
61510 [153]"   DO YOU WISH TO PLAY AGAIN ? "
61512 [153]"           Y)ES OR N)O "
61515 [161]A$:[139]A$[178]""[167]61515
61520 [139]A$[178]"Y"[176]A$[178]"(null)"[167]:[151]53272,21:[137] 7
61525 [139]A$[178]"(null)"[176]A$[178]"N" [167] 61700
61550 [137] 61515
61700 [153]"LOAD":[159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
61705 [139] ER[179][177]63 [167] [128]
61710 [147]"HELLO CONNECT",8